home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_106_ModalOneShot < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.4 KB  |  70 lines
  1. { %filename% -- Modal one-shot dialog }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit %unitname%;
  5. Interface
  6.  
  7. Uses
  8.     ResourceDefs,
  9.     DialogAids;
  10.  
  11. Type
  12.     %dlogname%Rec = record
  13.         %for each item gen dialog field%
  14.     end;
  15.  
  16. {----------}
  17. Procedure Get%dlogname% (var %dlogname%:    %dlogname%Rec);
  18.  
  19. {----------}
  20. Implementation
  21.  
  22. const
  23.     %for each item gen itemNr%
  24.  
  25. %for each item gen auxiliary%
  26. %if needsFilter%
  27.     {----------}
  28.     Function Filter%dlogname% (whichDialog:    DialogPtr;
  29.                          var event:            EventRecord;
  30.                          var itemHit:        integer): boolean;
  31.     var
  32.         filtered:        boolean;
  33.     Begin
  34.         filtered := false;
  35.             %for each item gen filter%
  36.         if not filtered then begin
  37.             filtered := StandardFilter (whichDialog, event, itemHit);
  38.         end;
  39.         Filter%dlogname% := filtered;
  40.     End; {Filter%dlogname%}
  41.  
  42. %end if%
  43. {----------}
  44. Procedure Get%dlogname% (var %dlogname%:    %dlogname%Rec);
  45. var
  46.     theDialog:        DialogPtr;
  47.     itemNr:            integer;
  48. Begin
  49.     InitCursor;
  50.     theDialog := GetNewDialog (%dlogname%ID, nil, pointer (-1));
  51.     SetPort (theDialog);
  52.     With %dlogname% do begin
  53.         %for each item gen set%
  54.         ShowWindow (theDialog);
  55.         %for each item gen enable%
  56.         %if needsFilter%
  57.             ModalDialog (@Filter%dlogname%, itemNr);
  58.         %else%
  59.             ModalDialog (nil, itemNr);
  60.         %end if%
  61.         case itemNr of
  62.             %for each item gen hit%
  63.         end; {case}
  64.         %for each item gen finish%
  65.     end; {with}
  66.     DisposDialog (theDialog);
  67. End; {Get%dlogname%}
  68.  
  69. End. {%unitname%}
  70.